unit UPesquisaGrupos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UFormPesquisa, StdCtrls, DB, DBTables, Grids, DBGrids, Buttons,
  ExtCtrls;

type
  TFPesquisaGrupos = class(TFormPesquisa)
    Label2: TLabel;
    edDescricao: TEdit;
    rgTipo: TRadioGroup;
    procedure BtnConsultarClick(Sender: TObject);
    procedure BtnSelecionarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FPesquisaGrupos: TFPesquisaGrupos;

implementation

uses CadastroGrupo;

{$R *.dfm}

procedure TFPesquisaGrupos.BtnConsultarClick(Sender: TObject);
const
  ctPesquisa = 'SELECT * FROM GRUPO WHERE (GRUP_CODIGO <> 0) %s';
var
  filtro : string;
begin

  if edDescricao.Text <> '' then
    filtro := 'AND (GRUP_DESCRICAO LIKE ''' + edDescricao.Text + '%'')';

  if rgTipo.ItemIndex > 0 then
    filtro := 'AND (GRUP_TIPO LIKE ''' +   rgTipo.Items.Strings[rgTipo.ItemIndex] + '%'')';

  QPesquisa.Close;
  Qpesquisa.SQL.Clear;
  Qpesquisa.SQL.Add(Format(ctPesquisa,[filtro]));
  Qpesquisa.Open;
  inherited;

end;

procedure TFPesquisaGrupos.BtnSelecionarClick(Sender: TObject);
begin
  inherited;
  with FCadastroGrupo do
  begin
    if QCadastro.State = dsBrowse then
      QCadastro.Locate('GRUP_CODIGO',QPesquisa.FieldByName('GRUP_CODIGO').AsVariant,[]);

  end;
  Close;
end;

end.
